home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / TSYSMENU.frm < prev    next >
Text File  |  1997-06-14  |  1KB  |  46 lines

  1. VERSION 5.00
  2. Begin VB.Form FTestSysMenu 
  3.    Caption         =   "Test System Menu Callback"
  4.    ClientHeight    =   3675
  5.    ClientLeft      =   2355
  6.    ClientTop       =   3480
  7.    ClientWidth     =   4890
  8.    Icon            =   "TSYSMENU.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3675
  11.    ScaleWidth      =   4890
  12.    Begin VB.Label Label1 
  13.       Caption         =   "Check out About on the system menu. "
  14.       Height          =   525
  15.       Left            =   720
  16.       TabIndex        =   0
  17.       Top             =   690
  18.       Width           =   3435
  19.    End
  20. End
  21. Attribute VB_Name = "FTestSysMenu"
  22. Attribute VB_GlobalNameSpace = False
  23. Attribute VB_Creatable = False
  24. Attribute VB_PredeclaredId = True
  25. Attribute VB_Exposed = False
  26. Attribute VB_Ext_KEY = "RepId" ,"4FB51841-CEAF-11CF-A15E-00AA00A74D48-0050"
  27. Option Explicit
  28.  
  29. Private Sub Form_Load()
  30.     Dim hSysMenu As Long
  31.     ' Get handle of system menu
  32.     hSysMenu = GetSystemMenu(hWnd, 0&)
  33.     ' Append separator and menu item with ID IDM_ABOUT
  34.     Call AppendMenu(hSysMenu, MF_SEPARATOR, 0&, 0&)
  35.     Call AppendMenu(hSysMenu, MF_STRING, IDM_ABOUT, "About...")
  36.     Show
  37.     
  38.     ' Install system menu window procedure
  39.     procOld = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SysMenuProc)
  40. End Sub
  41.  
  42. Private Sub Form_Unload(Cancel As Integer)
  43.     Call SetWindowLong(hWnd, GWL_WNDPROC, procOld)
  44. End Sub
  45.  
  46.